home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / binarydb / frmrec.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-19  |  4.3 KB  |  151 lines
  1. VERSION 4.00
  2. Begin VB.Form frmRec 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Record"
  5.    ClientHeight    =   4695
  6.    ClientLeft      =   2325
  7.    ClientTop       =   2775
  8.    ClientWidth     =   6120
  9.    Height          =   5100
  10.    Icon            =   "frmRec.frx":0000
  11.    Left            =   2265
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4695
  16.    ScaleWidth      =   6120
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   2430
  19.    Width           =   6240
  20.    Begin VB.TextBox txtIndex 
  21.       BackColor       =   &H00C0C0C0&
  22.       Height          =   285
  23.       Left            =   4680
  24.       Locked          =   -1  'True
  25.       TabIndex        =   5
  26.       TabStop         =   0   'False
  27.       Top             =   90
  28.       Width           =   1365
  29.    End
  30.    Begin VB.TextBox txtMessage 
  31.       BackColor       =   &H00FFFFFF&
  32.       Height          =   1995
  33.       Left            =   90
  34.       MultiLine       =   -1  'True
  35.       ScrollBars      =   2  'Vertical
  36.       TabIndex        =   2
  37.       Top             =   2610
  38.       Width           =   5955
  39.    End
  40.    Begin VB.TextBox txtSubject 
  41.       BackColor       =   &H00FFFFFF&
  42.       Height          =   285
  43.       Left            =   90
  44.       TabIndex        =   1
  45.       Top             =   2250
  46.       Width           =   5955
  47.    End
  48.    Begin VB.TextBox txtFrom 
  49.       BackColor       =   &H00FFFFFF&
  50.       Height          =   285
  51.       Left            =   90
  52.       TabIndex        =   3
  53.       Top             =   990
  54.       Width           =   2895
  55.    End
  56.    Begin VB.TextBox txtTo 
  57.       BackColor       =   &H00FFFFFF&
  58.       Height          =   285
  59.       Left            =   90
  60.       TabIndex        =   0
  61.       Top             =   1620
  62.       Width           =   2895
  63.    End
  64.    Begin VB.TextBox txtDate 
  65.       BackColor       =   &H00C0C0C0&
  66.       Height          =   285
  67.       Left            =   90
  68.       Locked          =   -1  'True
  69.       TabIndex        =   4
  70.       TabStop         =   0   'False
  71.       Top             =   360
  72.       Width           =   2895
  73.    End
  74.    Begin VB.Label Label5 
  75.       BackStyle       =   0  'Transparent
  76.       Caption         =   "If record fields are changed, then closing window will save record."
  77.       Height          =   645
  78.       Left            =   4320
  79.       TabIndex        =   10
  80.       Top             =   450
  81.       Width           =   1725
  82.    End
  83.    Begin VB.Label Label4 
  84.       AutoSize        =   -1  'True
  85.       BackStyle       =   0  'Transparent
  86.       Caption         =   "Subject"
  87.       Height          =   195
  88.       Left            =   90
  89.       TabIndex        =   9
  90.       Top             =   1980
  91.       Width           =   540
  92.    End
  93.    Begin VB.Label Label3 
  94.       AutoSize        =   -1  'True
  95.       BackStyle       =   0  'Transparent
  96.       Caption         =   "From"
  97.       Height          =   195
  98.       Left            =   90
  99.       TabIndex        =   8
  100.       Top             =   720
  101.       Width           =   345
  102.    End
  103.    Begin VB.Label Label2 
  104.       AutoSize        =   -1  'True
  105.       BackStyle       =   0  'Transparent
  106.       Caption         =   "To"
  107.       Height          =   195
  108.       Left            =   90
  109.       TabIndex        =   7
  110.       Top             =   1350
  111.       Width           =   195
  112.    End
  113.    Begin VB.Label Label1 
  114.       AutoSize        =   -1  'True
  115.       BackStyle       =   0  'Transparent
  116.       Caption         =   "Date"
  117.       Height          =   195
  118.       Left            =   90
  119.       TabIndex        =   6
  120.       Top             =   90
  121.       Width           =   345
  122.    End
  123. Attribute VB_Name = "frmRec"
  124. Attribute VB_Creatable = False
  125. Attribute VB_Exposed = False
  126. Private Sub Form_Load()
  127.     dirty = False
  128. End Sub
  129. Private Sub Form_Unload(Cancel As Integer)
  130. On Error Resume Next
  131.     If frmRec.Visible = True Then Cancel = -1
  132.     frmRec.Hide
  133. On Error GoTo 0
  134. On Error Resume Next
  135. End Sub
  136. Private Sub txtFrom_Change()
  137.     dirty = True
  138. End Sub
  139. Private Sub txtMessage_Change()
  140.     dirty = True
  141. End Sub
  142. Private Sub txtSubject_Change()
  143.     dirty = True
  144. End Sub
  145. Private Sub txtTo_Change()
  146.     dirty = True
  147. End Sub
  148. Private Sub txtTo_GotFocus()
  149.     dirty = False
  150. End Sub
  151.